
      for each wod_det 
         no-lock BREAK BY wod_part BY wod_nbr by wod_iss_date 
      with frame d width 120 no-attr-space:
         FIND pt_mstr WHERE pt_part = wod_part.
        
         DISP
             wod_part FORMAT "X(12)" WHEN (FIRST-OF(wod_part))
             wod_nbr  FORMAT "X(10)"
             wod_itm_line
             wod_lot
             wod_op
             wod_iss_date 
             wod_qty_req 
             wod_qty_iss
             . 
/*          IF (FIRST-OF(wod_part)) THEN DOWN 1.  */
         DISP
             pt_desc1 FORMAT "X(41)"  WHEN (FIRST-OF(wod_part) AND AVAILABLE pt_mstr) AT 2.
    END.


